C# / VB.NET - [VB .NET] Stampa dati di una listbox

Forum - C# / VB.NET - [VB .NET] Stampa dati di una listbox

marco_grillo (Member)
Rookie

Messaggi: 33
Iscritto: 22/04/2009

Postato alle 21:34
Venerdì, 25/09/2009

Salve,
ho problemi durante la stampa di dati di una listbox.
In poche parole mi stampa solo una pagina!

Ecco il codice:

Codice sorgente - presumibilmente VB.NET

Private Sub cmdStampa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStampa.Click
        txtStampa.Text = UCase(txtStampa.Text)
        lblOk.Text = ""
 
        AddHandler pd.PrintPage, AddressOf Me.pd_PrintElenco
 
        If lstSomma.Items.Count <> 0 Then
            If txtStampa.Text <> "" Then
                Try
                    AddHandler pd.PrintPage, AddressOf Me.pd_PrintElenco
                    pd.Print()
                Catch ex As Exception
                    MessageBox.Show(ex.Message & Environment.NewLine & ex.StackTrace)
                End Try
 
                lblOk.Text = "OK"
            Else
                If MsgBox("La stampa è senza titolo, continuare?", MsgBoxStyle.YesNo, "CONTINUARE STAMPA?") = MsgBoxResult.Yes Then
                    Try
                        AddHandler pd.PrintPage, AddressOf Me.pd_PrintElenco
                        pd.Print()
                    Catch ex As Exception
                        MessageBox.Show(ex.Message & Environment.NewLine & ex.StackTrace)
                    End Try
 
                    lblOk.Text = "OK"
                End If
            End If
        Else
            MsgBox("Nessuna battuta da stampare", MsgBoxStyle.Information, "BATTUTE INESISTENTI")
            txtNum.Select()
        End If
    End Sub
 
 
 
 
    Private Sub pd_PrintElenco(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
        Dim printFont As New Font("Arial", 13)
        Dim yPos As Long = 30
        Dim xPos As Long = 30
 
        ev.Graphics.DrawString(txtStampa.Text, printFont, Brushes.Black, xPos, yPos, New StringFormat())
        yPos = yPos + Font.Height
        yPos = yPos + Font.Height
 
        printFont = New Font("Arial", 11)
        Try
            For x As Integer = 0 To lstSomma.Items.Count - 1
                ev.Graphics.DrawString(lstSomma.Items(x).ToString, printFont, Brushes.Black, xPos, yPos, New StringFormat())
                yPos = yPos + Font.Height
            Next
 
            yPos = yPos + Font.Height
            yPos = yPos + Font.Height
            ev.Graphics.DrawString("Totale €: " + lblSomma.Text, printFont, Brushes.Black, xPos, yPos, New StringFormat())
            yPos = yPos + Font.Height
            ev.Graphics.DrawString("Numero battute: " + lblBatt.Text, printFont, Brushes.Black, xPos, yPos, New StringFormat())
            yPos = yPos + Font.Height
            ev.Graphics.DrawString("Data e ora di stampa: " & Today & " - " & TimeOfDay, printFont, Brushes.Black, xPos, yPos, New StringFormat())
        Catch ex As Exception
            MessageBox.Show(ex.Message & Environment.NewLine & ex.StackTrace)
        End Try
    End Sub

Grazie.

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 15:07
Lunedì, 28/09/2009

Non mi sembra che ci sia scritto da nessuna parte di continuare a stampare su un'altra pagina nel caso in cui i dati siano troppi... Devi essere tu a controllare dove sei arrivato (con yPos): una volta raggiunta la fine della pagina, devi fermare le operazioni di stampa/disegno e rimandarle all'evento successivo. Per far questo devi impostare e.HasMorePages su True (questo obbliga l'oggetto a lanciare un'altra volta lo stesso evento PrintPage), e devi usare una variabile Static che tenga in memoria il punto in cui sei arrivato a stampare. Dovresti rendere Static anche il font, perchè è inutile creare un nuovo oggetto font ogni volta che inizia una nuova stampa...